home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr18
/
1st_111.zip
/
SCRIPTS.ZIP
/
$$TELNET.SCR
< prev
next >
Wrap
Text File
|
1993-05-23
|
605b
|
25 lines
' ┌─────────────────────────────────┐
' │ PC Pursuit script for 1stReader │
' │ Written by Mark Herring │
' │ May 15th, 1993 │
' └─────────────────────────────────┘
LOCKLINE 20 78
LOOKFOR "NO CARRIER" ""
RESET
COMMENT "@DATE@ @TIME@ Calling Telenet"
TRANSMIT "@^M"
WAITFOR "@" 5
IF FOUND=0 THEN GOTO DISCONNECT
COMMENT "@DATE@ @TIME@ Disconnecting from @API$(108)"
TRANSMIT "D^M"
WAITFOR "@" 10
SET_API$(126)="$$GOCITY.SCR"
EXIT
:DISCONNECT
PROMPT "Could not access TELENET - Disconnecting"
SET_API(81)=-1
PRINT "$TOP 1"